home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 10 / AACD 10.iso / AACD / Magazine / Online / MagPLIP / Install < prev    next >
Text File  |  1998-04-01  |  4KB  |  177 lines
  1. ;
  2. ; $VER: install 34.3 (01 Apr 1998)
  3. ;
  4. ; Installer script for magPLIP package.
  5. ;
  6. ; (C) Copyright 1995 Marius Gröger
  7. ;     All Rights Reserved.
  8. ;
  9. ; $HISTORY:
  10. ;
  11. ; 01 Apr 1998 : 034.003 :  updated to support new linplip.device
  12. ; 10 Mar 1996 : 034.002 :  copy also scheme picture
  13. ; 30 Jul 1995 : 034.001 :  initial
  14. ;
  15.  
  16. (set #cpu           (database "cpu"))
  17. (set #level         @user-level)
  18. (set #device        "magplip.device")
  19. (set #device-name   "magPLIP")
  20. (set #config        "magPLIP.config")
  21. (set #helpfile      "magPLIP.guide")
  22. (set #picfile       "cable.iff")
  23. (set #more          "RUN SYS:Utilities/More")
  24. (set #install-notes "\"Installation Notes\"")
  25.  
  26. ; -------------------------- Installation mode ---------------------------
  27.  
  28. ; (The installer documentation says not to use this call
  29. ; final distribtions, but I know no way to let the next decision
  30. ; popping up in novice mode. If you do, please mail to
  31. ; ruppert@amigaworld.com. Thanks.)
  32. (user 2)
  33. (set #which-device
  34.      (askchoice
  35.      (prompt "Which connection do you want to use ?")
  36.      (choices "Amiga <--> Amiga" "Amiga <--> Linux")
  37.      (help "Please select which computers do you want to connect to each other!\n\n" @askchoices-help)
  38.      )
  39. )
  40.  
  41. (if (= #which-device 1)
  42.     (
  43.     (set #device "linplip.device")
  44.     (set #device-name "linPLIP")
  45.     )
  46. )
  47.  
  48. (set mode
  49.      (askoptions
  50.      (prompt "Which parts should be installed ?")
  51.      (choices (cat #device-name " device driver") "AmigaGuide® documentation" "schematic wiring picture")
  52.      (help @askoptions-help)
  53.      )
  54. )
  55. (user #level)
  56.  
  57. (set #installdevice (IN mode 0))
  58. (set #installguide (IN mode 1))
  59. (set #installpic (IN mode 2))
  60.  
  61. ; -------------------------- Installtion setup ---------------------------
  62.  
  63. (if #installdevice
  64.    (
  65.       (set #devicedir
  66.       (askdir
  67.           (prompt "Please locate the directory for SANA II device drivers:")
  68.           (help @askdir-help)
  69.           (default "AmiTCP:DEVS/Networks")
  70.       )
  71.       )
  72.       (set #configdir
  73.       (askdir
  74.           (prompt "Please locate the directory for SANA II configurations:")
  75.           (help @askdir-help)
  76.           (default "ENV:Sana2")
  77.       )
  78.       )
  79.    )
  80. )
  81.  
  82. (if #installguide
  83.    (set helpdir
  84.        (askdir
  85.            (prompt "Please locate the directory for AmigaGuide®-Documents:")
  86.            (help (cat "   Select here the directory where you keep your "\
  87.                   "AmigaGuide® online help documents.\n\n"
  88.                    @askdir-help
  89.              )
  90.            )
  91.            (default "HELP:english")
  92.        )
  93.    )
  94. )
  95.  
  96. ; ------------------------- Device Installation --------------------------
  97.  
  98. (if #installdevice
  99.    (
  100.       (set #proc
  101.     (askchoice
  102.        (prompt (cat "There are diffent versions of \"" #device "\", each one optimized "
  103.             "for a specific CPU type. Please select one: "))
  104.        (choices  "MC68000"
  105.              "MC68020"
  106.              "MC68040"
  107.        )
  108.        (help (cat "  Select here the CPU type that is installed in your system. "
  109.          "\n\n  Currently, this is a MC" #cpu ".\n\n  If you select a certain CPU type "
  110.          "in the choice box, \"" #device "\" will run on any CPU which "
  111.          "type is higher or equal to the selection. However, it won't "
  112.          "run on a system equipped with a lower type.\n\n"
  113.          @askchoice-help)
  114.        )
  115.        (default 0)
  116.     )
  117.       )
  118.  
  119.       (copylib
  120.      (prompt (cat "Copying the device"))
  121.      (help @copylib-help)
  122.      (source (cat (tackon "DEVS/Networks" #device)
  123.             (if (= 0 #proc) ".000")
  124.             (if (= 1 #proc) ".020")
  125.             (if (= 2 #proc) ".040")
  126.      ))
  127.      (dest #devicedir)
  128.      (newname #device)
  129.      (confirm)
  130.       )
  131.       (copyfiles
  132.      (prompt (cat "Copying the configuration file"))
  133.      (help @copylib-help)
  134.      (source (tackon "ENV/Sana2" #config))
  135.      (dest #configdir)
  136.      (confirm)
  137.       )
  138.    )
  139. )
  140.  
  141. ; ------------------------- Guide Installation --------------------------
  142.  
  143. ; install AmigaGuide file
  144. (if #installguide
  145.    (
  146.       (copyfiles
  147.           (prompt "Copying AmigaGuide file")
  148.           (help @copyfiles-help)
  149.           (source "help")
  150.           (dest helpdir)
  151.           (pattern (cat #helpfile "(%|.info)"))
  152.           (confirm)
  153.       )
  154.    )
  155. )
  156.  
  157. ; install picture file
  158. (if #installpic
  159.    (
  160.       (copyfiles
  161.           (prompt "Copying schematic picture")
  162.           (help @copyfiles-help)
  163.           (source "help")
  164.           (dest helpdir)
  165.           (pattern (cat #picfile "(%|.info)"))
  166.           (confirm)
  167.       )
  168.    )
  169. )
  170.  
  171. ; --------------------- Display Installation Notes -----------------------
  172.  
  173. (if (OR #installclient #installserver)
  174.    (run #more #install-notes)
  175. )
  176.  
  177.